inherited frmVeiculos: TfrmVeiculos
  Left = 659
  Top = 405
  Width = 654
  Height = 548
  Caption = 'Cadastro de Ve'#237'culos'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 469
    Width = 638
  end
  inherited tbrBotoes: TsToolBar
    Width = 638
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object ntbPaginas: TsNotebook [2]
    Left = 0
    Top = 65
    Width = 638
    Height = 404
    Align = alClient
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 638
        Height = 404
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 21
          Top = 26
          Width = 76
          Height = 13
          Caption = 'C'#243'digo Ve'#237'culo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 21
          Top = 51
          Width = 64
          Height = 13
          Caption = 'Tipo Ve'#237'culo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 21
          Top = 76
          Width = 91
          Height = 13
          Caption = 'Descri'#231#227'o Ve'#237'culo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel4: TsLabel
          Left = 21
          Top = 101
          Width = 73
          Height = 13
          Caption = 'Placa Principal:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel5: TsLabel
          Left = 213
          Top = 101
          Width = 86
          Height = 13
          Caption = 'Placa Reboque 1:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel6: TsLabel
          Left = 413
          Top = 101
          Width = 86
          Height = 13
          Caption = 'Placa Reboque 2:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel7: TsLabel
          Left = 21
          Top = 126
          Width = 78
          Height = 13
          Caption = 'Ano Fabrica'#231#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel8: TsLabel
          Left = 21
          Top = 151
          Width = 60
          Height = 13
          Caption = 'Ano Modelo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel9: TsLabel
          Left = 21
          Top = 176
          Width = 19
          Height = 13
          Caption = 'Cor:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel10: TsLabel
          Left = 21
          Top = 201
          Width = 56
          Height = 13
          Caption = 'RENAVAM:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel11: TsLabel
          Left = 21
          Top = 226
          Width = 34
          Height = 13
          Caption = 'Chassi:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel12: TsLabel
          Left = 21
          Top = 250
          Width = 33
          Height = 13
          Caption = 'Marca:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel13: TsLabel
          Left = 22
          Top = 275
          Width = 41
          Height = 13
          Caption = 'RNTRC:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel17: TsLabel
          Left = 472
          Top = 151
          Width = 25
          Height = 13
          Caption = 'Tara:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object cedCodigoVeiculo: TsCurrencyEdit
          Tag = 2000
          Left = 125
          Top = 22
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#####0'
        end
        object cedCodigoTipoVeiculo: TsCurrencyEdit
          Tag = 1000
          Left = 125
          Top = 47
          Width = 80
          Height = 21
          Hint = 'Selecione o Tipo de Ve'#237'culo'
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnExit = cedCodigoTipoVeiculoExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#####0'
        end
        object dblTipoVeiculo: TsDBLookupComboBox
          Tag = 1000
          Left = 210
          Top = 47
          Width = 395
          Height = 21
          Hint = 'Selecione o Tipo de Ve'#237'culo'
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_TIPO_VEICULO'
          ListField = 'DESCRICAO_TIPO_VEICULO'
          ListSource = dtsTipoVeiculo
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnCloseUp = dblTipoVeiculoCloseUp
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object edtDescricaoVeiculo: TsEdit
          Tag = 1000
          Left = 125
          Top = 72
          Width = 481
          Height = 21
          Hint = 'Digite a Descri'#231#227'o do Ve'#237'culo'
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object mskPlaca: TsMaskEdit
          Tag = 1000
          Left = 125
          Top = 97
          Width = 80
          Height = 21
          Hint = 'Digite a Placa Principal'
          CharCase = ecUpperCase
          Color = clWhite
          EditMask = 'AAA-0000;0;_'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object mskPlacaReboque1: TsMaskEdit
          Left = 325
          Top = 97
          Width = 80
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          EditMask = 'AAA-0000;0;_'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 6
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object mskPlacaReboque2: TsMaskEdit
          Left = 525
          Top = 97
          Width = 80
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          EditMask = 'AAA-0000;0;_'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 8
          ParentFont = False
          TabOrder = 7
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
        end
        object cedAnoFabricacao: TsCurrencyEdit
          Left = 125
          Top = 122
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#####0'
        end
        object cedAnoModelo: TsCurrencyEdit
          Left = 125
          Top = 147
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DecimalPlaces = 0
          DisplayFormat = '#####0'
        end
        object edtCor: TsEdit
          Left = 125
          Top = 172
          Width = 478
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 11
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtRenavam: TsEdit
          Left = 125
          Top = 197
          Width = 478
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtChassi: TsEdit
          Left = 125
          Top = 222
          Width = 478
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtMarca: TsEdit
          Left = 125
          Top = 246
          Width = 478
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object edtRNTRC: TsEdit
          Left = 126
          Top = 271
          Width = 478
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 15
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object grpConsumo: TsGroupBox
          Left = 24
          Top = 296
          Width = 177
          Height = 100
          Caption = 'Consumo de Combust'#237'vel'
          TabOrder = 16
          SkinData.SkinSection = 'GROUPBOX'
          object sLabel14: TsLabel
            Left = 16
            Top = 28
            Width = 32
            Height = 13
            Caption = #193'lcool:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel15: TsLabel
            Left = 16
            Top = 52
            Width = 44
            Height = 13
            Caption = 'Gasolina:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object sLabel16: TsLabel
            Left = 16
            Top = 76
            Width = 32
            Height = 13
            Caption = 'Diesel:'
            ParentFont = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = 2171169
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
          end
          object cedConsumoAlcool: TsCurrencyEdit
            Left = 64
            Top = 24
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '##0.00'
          end
          object cedConsumoGasolina: TsCurrencyEdit
            Left = 64
            Top = 48
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '##0.00'
          end
          object cedConsumoDiesel: TsCurrencyEdit
            Left = 64
            Top = 72
            Width = 80
            Height = 21
            AutoSize = False
            Color = clWhite
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            BoundLabel.Indent = 0
            BoundLabel.Font.Charset = DEFAULT_CHARSET
            BoundLabel.Font.Color = clWindowText
            BoundLabel.Font.Height = -11
            BoundLabel.Font.Name = 'MS Sans Serif'
            BoundLabel.Font.Style = []
            BoundLabel.Layout = sclLeft
            BoundLabel.MaxWidth = 0
            BoundLabel.UseSkinColor = True
            SkinData.SkinSection = 'EDIT'
            GlyphMode.Blend = 0
            GlyphMode.Grayed = False
            DisplayFormat = '##0.00'
          end
        end
        object chkFrotaPropriaSN: TsCheckBox
          Left = 208
          Top = 24
          Width = 117
          Height = 19
          Caption = 'Frota Pr'#243'pria S/N?'
          TabOrder = 1
          SkinData.SkinSection = 'CHECKBOX'
          ImgChecked = 0
          ImgUnchecked = 0
        end
        object cedTara: TsCurrencyEdit
          Left = 520
          Top = 147
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DisplayFormat = '###,###,##0.00'
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'pgConsulta'
      object pnlConsulta: TsPanel
        Left = 0
        Top = 0
        Width = 638
        Height = 404
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object dbgConsulta: TRxDBGrid
          Left = 1
          Top = 1
          Width = 636
          Height = 402
          Align = alClient
          DataSource = dtsConsulta
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dbgConsultaDblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'DESCRICAO_TIPO_VEICULO'
              Title.Caption = 'Tipo Ve'#237'culo'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DESCRICAO_VEICULO'
              Title.Caption = 'Ve'#237'culo'
              Width = 180
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MARCA'
              Title.Caption = 'Marca'
              Width = 100
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLACA'
              Title.Caption = 'Placa'
              Width = 87
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLACA_REBOQUE_1'
              Title.Caption = 'Placa Reboque 1'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLACA_REBOQUE_2'
              Title.Caption = 'Placa Reboque 2'
              Visible = True
            end>
        end
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 488
    Top = 16
  end
  object qryTipoVeiculo: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TIPO_VEICULO ORDER BY CODIGO_TIPO_VEICULO')
    Left = 368
    Top = 105
    object qryTipoVeiculoCODIGO_TIPO_VEICULO: TAutoIncField
      FieldName = 'CODIGO_TIPO_VEICULO'
      ReadOnly = True
    end
    object qryTipoVeiculoDESCRICAO_TIPO_VEICULO: TStringField
      FieldName = 'DESCRICAO_TIPO_VEICULO'
      Size = 50
    end
  end
  object dtsTipoVeiculo: TDataSource
    DataSet = qryTipoVeiculo
    Left = 448
    Top = 105
  end
  object qryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_TIPO_VEICULO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'DESCRICAO_VEICULO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'PLACA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'PLACA_REBOQUE_1'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'PLACA_REBOQUE_2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'ANO_FABRICACAO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ANO_MODELO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'COR'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'RENAVAM'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CHASSI'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'MARCA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'TARA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'RNTRC'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CONSUMO_GASOLINA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CONSUMO_ALCOOL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CONSUMO_DIESEL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'FROTA_PROPRIA_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO VEICULOS'
      '('
      '    CODIGO_TIPO_VEICULO,'
      '    DESCRICAO_VEICULO,'
      '    PLACA,'
      '    PLACA_REBOQUE_1,'
      '    PLACA_REBOQUE_2,'
      '    ANO_FABRICACAO,'
      '    ANO_MODELO,'
      '    COR,'
      '    RENAVAM,'
      '    CHASSI,'
      '    MARCA,'
      '    TARA,'
      '    RNTRC,'
      '    CONSUMO_GASOLINA,'
      '    CONSUMO_ALCOOL,'
      '    CONSUMO_DIESEL,'
      '    FROTA_PROPRIA_SN'
      ')'
      'VALUES'
      '('
      '  :CODIGO_TIPO_VEICULO,'
      '  :DESCRICAO_VEICULO,'
      '  :PLACA,'
      '  :PLACA_REBOQUE_1,'
      '  :PLACA_REBOQUE_2,'
      '  :ANO_FABRICACAO,'
      '  :ANO_MODELO,'
      '  :COR,'
      '  :RENAVAM,'
      '  :CHASSI,'
      '  :MARCA,'
      '  :TARA,'
      '  :RNTRC,'
      '  :CONSUMO_GASOLINA,'
      '  :CONSUMO_ALCOOL,'
      '  :CONSUMO_DIESEL,'
      '  :FROTA_PROPRIA_SN'
      ')')
    Left = 248
    Top = 377
  end
  object qryConsulta: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT TPV.DESCRICAO_TIPO_VEICULO,'
      '       VEI.*'
      'FROM VEICULOS VEI,'
      '     TIPO_VEICULO TPV'
      'WHERE VEI.CODIGO_TIPO_VEICULO = TPV.CODIGO_TIPO_VEICULO'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 360
    Top = 369
    object qryConsultaDESCRICAO_TIPO_VEICULO: TStringField
      FieldName = 'DESCRICAO_TIPO_VEICULO'
      Size = 50
    end
    object qryConsultaDESCRICAO_VEICULO: TStringField
      FieldName = 'DESCRICAO_VEICULO'
      Size = 100
    end
    object qryConsultaMARCA: TStringField
      FieldName = 'MARCA'
      Size = 50
    end
    object qryConsultaPLACA: TStringField
      FieldName = 'PLACA'
      EditMask = 'AAA-0000;0'
      Size = 7
    end
    object qryConsultaPLACA_REBOQUE_1: TStringField
      FieldName = 'PLACA_REBOQUE_1'
      EditMask = 'AAA-0000;0'
      Size = 7
    end
    object qryConsultaPLACA_REBOQUE_2: TStringField
      FieldName = 'PLACA_REBOQUE_2'
      EditMask = 'AAA-0000;0'
      Size = 7
    end
    object qryConsultaCODIGO_VEICULO: TAutoIncField
      FieldName = 'CODIGO_VEICULO'
      ReadOnly = True
    end
    object qryConsultaCODIGO_TIPO_VEICULO: TIntegerField
      FieldName = 'CODIGO_TIPO_VEICULO'
    end
    object qryConsultaANO_FABRICACAO: TIntegerField
      FieldName = 'ANO_FABRICACAO'
    end
    object qryConsultaANO_MODELO: TIntegerField
      FieldName = 'ANO_MODELO'
    end
    object qryConsultaCOR: TStringField
      FieldName = 'COR'
      Size = 50
    end
    object qryConsultaRENAVAM: TStringField
      FieldName = 'RENAVAM'
      Size = 50
    end
    object qryConsultaCHASSI: TStringField
      FieldName = 'CHASSI'
      Size = 50
    end
    object qryConsultaTARA: TFloatField
      FieldName = 'TARA'
    end
    object qryConsultaRNTRC: TStringField
      FieldName = 'RNTRC'
      Size = 50
    end
    object qryConsultaCONSUMO_GASOLINA: TFloatField
      FieldName = 'CONSUMO_GASOLINA'
    end
    object qryConsultaCONSUMO_ALCOOL: TFloatField
      FieldName = 'CONSUMO_ALCOOL'
    end
    object qryConsultaCONSUMO_DIESEL: TFloatField
      FieldName = 'CONSUMO_DIESEL'
    end
    object qryConsultaFROTA_PROPRIA_SN: TStringField
      FieldName = 'FROTA_PROPRIA_SN'
      Size = 1
    end
  end
  object dtsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 344
    Top = 225
  end
  object qryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_VEICULO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM VEICULOS WHERE CODIGO_VEICULO = :CODIGO_VEICULO')
    Left = 472
    Top = 385
  end
  object qryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'DESCRICAO_VEICULO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'PLACA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'PLACA_REBOQUE_1'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'PLACA_REBOQUE_2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end
      item
        Name = 'ANO_FABRICACAO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ANO_MODELO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'COR'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'RENAVAM'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CHASSI'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'MARCA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'TARA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'RNTRC'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'CONSUMO_GASOLINA'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CONSUMO_ALCOOL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'CONSUMO_DIESEL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'FROTA_PROPRIA_SN'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_VEICULO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_VEICULO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE VEICULOS'
      'SET DESCRICAO_VEICULO      = :DESCRICAO_VEICULO,'
      '    PLACA                  = :PLACA,'
      '    PLACA_REBOQUE_1        = :PLACA_REBOQUE_1,'
      '    PLACA_REBOQUE_2        = :PLACA_REBOQUE_2,'
      '    ANO_FABRICACAO         = :ANO_FABRICACAO,'
      '    ANO_MODELO             = :ANO_MODELO,'
      '    COR                    = :COR,'
      '    RENAVAM                = :RENAVAM,'
      '    CHASSI                 = :CHASSI,'
      '    MARCA                  = :MARCA,'
      '    TARA                   = :TARA,'
      '    RNTRC                  = :RNTRC,'
      '    CONSUMO_GASOLINA       = :CONSUMO_GASOLINA,'
      '    CONSUMO_ALCOOL         = :CONSUMO_ALCOOL,'
      '    CONSUMO_DIESEL         = :CONSUMO_DIESEL,'
      '    FROTA_PROPRIA_SN       = :FROTA_PROPRIA_SN,'
      '    CODIGO_TIPO_VEICULO    = :CODIGO_TIPO_VEICULO'
      'WHERE CODIGO_VEICULO = :CODIGO_VEICULO'
      ' ')
    Left = 216
    Top = 257
  end
end
